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1 
“0c t-1984 12:43:35 DISKSVMSMASTER:CF11X.BUGSRC JRWVB.B32 (1) | 


me Boos MOULE RUE CC cunce (OLISS32) | 
001 'CDS0006 0008 0 IDENT = *vOs-O61* 0 
3 4-1 0004 )= : 
3 5 0005 1 BEGIN : 
3 6 00: 1 $ 
; 7 0007 1! 3 
3 8 Boe 1 'eeeeeeeeerekeeeeeHeHReReeeeeeeeeeeeteereeerereeeeeeeenereeeeeeenererererere ; 
: 9 00: 1 le 3 
; 0010 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * F 
- OF 0011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 3 
$ 1 Bot¢ : :* ALL RIGHTS RESERVED. * ; 
3 : . 3 
: «616 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED *« 3 
Eee 0015 1 !* ONLY IN ACCORDANCE WITH R F SUCH LICENSE AND WITH THE ®* 3 
; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
: 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * F 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERERY * : 
3 1 ith ; TRANSFERRED, * é 
g ‘@ + S 
: 21 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * F 
: $f b05§ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT e 3 
; Si 5 ' ° CORPORATION. * : 
3 ‘e ® é 
: 25 B0Se 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® 3 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
. > ar 0027 1 !* * F 
; @& 0028 1 !« * : 
; $3 OOS 1 Vaee eRe RRA RAAHHHAHROAHARAEHHHAHETEHE HEHEHE RERAAAARARARAAHARAHeHeReeeneee a 
; 0 0030 1 3 
ae 0031 1 !+¢ F 
; 3 00 ¢ 1! 3 
.- = 00 1! FACILITY: FIIACP Structure Level 1 3 
; 0034 1! 3 
: 3 0035 1 ! ABSTRACT: 3 
; 0036 1! ; : 
;.. ie 0037 1! This routine performs the window turn necessary to map a r 
; 0038 1! virtual 1/0 transfer which is not mapped by the current 3 
; 0039 1! window. It also receives virtual 1/0 errors for bad block : 
: 40 0040 1! processing. 3 
; (41 0041 1! F 
: 4 Bog 1 ! ENVIRONMENT: é 
a Ooce 1 i STARLET i including privileged syst 
: ! operating system, including privileged system services 3 
:; 645 bocs 1} and lneorhel onal rout ines. ied ° 4 : 
; 46 0046 1! 3 
me, 047 1 t= ; 
; 048 1! : 
; | «649 0049 1! | ; 
3 29 it : AUTHOR: Andrew C. Goldstein, CREATION DATE: 7-Jan-1977 00:48 3 
3 3 Ones : : MODIFIED BY: | 3 
3001 ~DS0006 Oaee 1! v04-001 CDS0006 Christian D. Saether 10-Nov-1984 30 
3:00 -0$0006 055 1! Deal with non-cluster situation in WRITE_TURN handling. 301 
70C CDS0006 0056 1 i ey: 01 
oo ae 057 1! v03-006 CDS0005 Christian D. Saether 2-Mar-1984 3 


Pee Oe Oe Oe Oe Oe Oe Oe ws Oe OF Os Be OH Oe Oe OH Oe Se SFOs Se SFOs Oe BES Se SH Sees 
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LIBRARY 
REQUIRE 


FORWARD 
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“0c t-1984 
Add support for WRITE_TURN trapping. 


v03-005 CDdS0004 Christian D. Saether 26-F eb-1984 
fall UNLOCK_XQP before requeueing the packet. 


CDS0003 Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 


v03-003 cDdS0002 Christian D. Saether 14-Sep-1983 
Modify SERIAL_FILE interface. 


v03-002 CDS0001 Christian D. Saether 5-May-1983 
Add SERIAL_FILE call to synchronize xqp operations. 


v03-001 ACG0320 Andrew C. Goldstein, 22-Mar-1983 12:44 
Change byte count handling to track changes in IOPOST 


v02-002 ACG0192 Andrew C. Goldstein, (18-Feb-1981 20:44 
Fix attempt at bad block handling on write locked disk 


v02-001 ACG0167 _, Andrew C. Goldstein 16-Apr-1980 19:27 
Previous revision history moved to f11B.REV 


v03-004 


*SYSSLIBRARY:LIB.L32'; 

*SRCS$:FCPDEF .B32°; 

ROUTINE : ; 
READ _WRITEVB : LNORM, : main read/write virtual handling 
MARKBAD_F (B; ! mark bad block in FCB 
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Hy Mt GLOBAL ROUTINE READ_WRITEVB : L_NORM = : 
31 oB$ yi 
2 88 ' FUNCTIONAL DESCRIPTION: : 
94 OB This routine performs the window turn necessary to map a : 
95 08 virtual 1/0 transfer which is not mapped by the current 3 
96 8 window. It also receives virtual 1/0 errors for bad block ; 
44 05 processing. These are presently simply returned to the user. : 
99 4 CALLING SEQUENCE: : 
4 82 READ_WRITEVB () : 
02 09 INPUT PARAMETERS: ; 
03 8 NONE : 

09 IMPLICIT INPUTS: : 

44 IO_PACKET: 1/0 packet of request : 


H 1080 1 

; 1982 

; 1088 

s 1084 1 

; 1988 

: 1 $ 1 

; 1088 1 

3 1089 1 

; 1090 1 

yy 1992 | 

, 1 : 1 

s F 1094 1 

, 1095 1 

; 104 1096 1 

; 105 1097 1 

; 106 1098 1 

; 107 1099 1 

; 108 1100 1 ! OUTPUT PARAMETERS: 

; 109 1101 1 NONE 

: 110 1106 1 

259 110 1 IMPLICIT OUTPUTS: 

: A 1104 1 NONE 

3; 11 1105 1 

3. (116 1106 1 ! ROUTINE VALUE: 

s 115 1107 1 1 if request requeued to driver 

; 116 1108 1 if error 

. Tir 1109 1 

; «(118 1110 1 =! SIDE EFFECTS: 

; 119 1111 «1 window turned 

; 120 Wi¢ 1 request requeved to driver if mapped 

; (121 1113 «1 

3 \$¢ 1114 1 !== 

s te 1115 1 

> 1246 1318 BEGIN 

s 125 111 

; 126 1118 LOCAL 

tar 1119 PACKET : REF BBLOCK, ! pointer to 1/0 packet 

; 128 1120 WINDOW : REF BBLOCK, ! file window 

: 129 1121 FCB : REF BBLOCK, ' file FCB 

; 150 11 § BLOCK_COUNT, ' number of blocks in transfer 
: 131 11 UNMAPPED, ' number of blocks not mapped 
> 2 § 1124 MODE, ! mode (read/write) of transfer 
3 V3? f i ven stortin bye y transfer 

: ' translate j 
: 133 1137 LAST_LBN; ! highest LBN touched by operation 
: 139 11 BIND_ COMMON; 

‘001 Sos 1 ? EXTERNAL 

2008 €D30006 iy § CLUSGL_ CLUB : ADDRESSING_MODE (GENERAL); 

004 i eps0008 1134 2 EXTERNAL ROUTINE 

3005 'CDS0006 =1135 KILL_ BUFFERS : LLNORM NOVALUE , ! invalidate buffers 

: 140-1 1136 UNLOTK_xOP : LINORM, : unlock xgp and release cache 


6 
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' serialize file operacions 
! get volume allocaticn lock 
! map and turn window 

! requeve request to driver 
-NORM; ! scan bad block log file 
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SERIAL_FILE : 
ALLOCATION_LOCK : 
MAP_VBN 


REQOEVE_REQ 
SCAN_BABLOG 


Serr 
z 
S 
2D 
zz 
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LABEL 


ir 


83 
3 
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INDEXF; 
! Extract the request parameters from the 1/0 packet. Compute VBN and LBN 
of the next block to be transferred. 


PACKET = .10_ CKET; 
WINDOW = .PACKETCIRPSL WIND); 

BLOCK_COUNT = (.PACKETCIRP$W_BCNTJ#511) / 512: 
VBN =" .PACKETCIRPSL_SECVBN); 

IF .VBN EQL 0 THEN ERR_EXIT (SS$_BADPARAM); 
FCB = .WINDOWCWCBSL_F CB); 


Serialize further processing on this file. 
! 
| 


PRIM_LCKINDX = SERIAL_FILE (FCB CFCBSW_FIDJ); 


: Attempt to map the request. If the mao fails, report 
failure. Else requeve the request to the driver. 


PAAPAAAMNIG AMINE 


LBN = MAP_VBN (.VBN, .WINDOW, .BLOCK COUNT, UNMAPPED) ; 
IF .LBN EL -1 THEN ERR_EXIT (SS$_ENDOFFILE); 


IF .PACKETCIRPSV_VIRTUAL) 
THEN 


BEGIN 
LAST_LBN = .LBN + (.BLOCK_COUNT = .UNMAPPED - 1); 
IF .CBN GEQU . CURRENT ucerucess MAXBLOCK) 

OR .LAST_LBN GEQU .CURRENT UCBCOCBSL_MAXBLOCK) 
THEN ERR_EXIT (SS$_ILLBLKNOM); 


If WRITE_TURN is set, this is a request to write a block into a file 
that the file syptes has some interest in. Specifically, those files 
which may have blocks cached in the file system cache. 

What will happen depends on whether this is a cluster or not. 
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If we are in a cluster, there are locks backing these buffers and 

to invalidate them throughout the cluster we must bump the sequence 
number for the backing lock. 

If we are not in a cluster, call a routine which will scan the buffer 
descriptors and toss those buffers that are relevant. 
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3333 


IF .WINDOW CWCBSV_WRITE_TURN] 
THEN 
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. EGIN 
LOCAL 
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016 'CDSO000S )3=s «1194s G CLUSTER; ; 
2017 !€D50006 1195 4 3 
3018 !CDS0006 1138 4 CLUSTER = 0; ; 
£030 i epso00e 1198 d IF .BBLOCK CCURRENT UCB CUCBSL_DEVCHAR2], DEV$v_CLUJ 
; ; . L » L : 
3021 !CDS0006 §=61199 4 AND .CLUSGL_CLUB NEQ 5 r > : 
30 ¢ 'CDS0006 §=6©1200 4 THEN : 
30 'CDS0006 §=61201 4 CLUSTER = 1; : 
3026 !CDS0006 = 1 o¢ 4 : 
3025 !CDS0006 1203 4 IF .FCB CFCBSB_FID_NMX] NEQ 0 ; 
3026 eo e oe 1206 4 OR .FCB CFCBSW_FID_NUM) GTRU 2 é 
Oe? 'CDS0006 )§=6.1205 = 4 ; 
7928 'CDSO006 = 1 Be 5 BEGIN : 
088 'CDS0006 §=61207 5 IF .CLUSTER : 
703 'Cps0006 1208 5 THEN F 
> 186+ 1209 5 5 
; «(187 1210 5 ! This is not the index file or bitmap file, so we assume it : 
; ie 121) 3! ts @ gph age? Simply bump the data sequence number. The . 
; «189 1si¢ 5 ! unlock_xqp will store the updated value block. : 
3B) Geneda ||! be ‘ 
3001 !cds0006 §=1215 5 LB_DATASEQ C.PRIM_LCKINDX] = .LB_DATASEQ £.PRIM_LCKINDX] + 1 ; 
3 O06 'CdS0006 Ss 1 18 5 SE : 
30035 !CDS0006 = 121 6 BEGIN ‘ 
2004 !CDS0006 §=61218 6 : : 
:005 !CDS0006 1s}? 6 ! Invalidate all directory data blocks and directory index blocks. : 
7006 !COS 1220 6! | : 
3007 !CDSO006 1221 6 3 
:008 'CDS0006 1 32 6 KILL BUFFERS (1, .LB_BASIS [.PRIM_LCKINDX]); : 
:009 'cos0006 ~=1 6 KILL-BUFFERS (3, .LB7BASIS C.PRIMTLCKINDX]): : 
7010 !CDSO006 8 1224 5 END; 3 
3011 !Cps0006 1225 5 END : 
: 193-1 1226 4 ELSE ‘ 
> 194 1227 5 BEGIN ; 
: «6195 1228 5 IF .FCB CFCBSW_FID_NUM] EQL 1 3 
; «196 1$§2 5 THEN : 
: 197 1230 5 3 
; 198 ise * ! This is the index file. Determine if the VBN being written is within : 
; 199 1 % 5 ! the index file bitmap or in the neader area, and increment the appropriate : 
; 5 : ? ; sequence number to invalidate cached buffers. : 
3. 202 1 33 : 
3001 'CoS 1 $ 6 INDEXF: BEGIN $ 
O08 'COS 1 6 LOCAL 3 
: 'COS 1238 6 HDRBASE; ; 
3006 !CDS0006 § 1239 6 : 
£006 iepsooge 1241 & mo 
‘009 ti 49'4''9 1 *g 6 3 
37008 !COS 1245 6! This is a bit of the sledgehammer approach. Wipe out all buffers : 
200% 'COS 1244 6 ! cached for the index file, period. This could be refined to ; 
3010 !COS 1245 6 : selectively hit only those buffers modified, but that routine : 
7011 !CDS 1 *$ 6 | does not exist right now. It is aleo not clear the effort is worth : 
01g 'CDS 1247 6! it, because this logic is typical y invoked when disk rebuild — ; 
3015 'CoS 12468 6! is tour sting headers, which is does not do very many of, and while F 
3014 'CDS 1598 6 ! it is blocking all disk activity anyway. : 
3015 !CdS 1250 6! ; 
i 


on 
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3016 !CDSOO 
:017 !CdSO0 
7018 ‘COS 
701 
020 'CDS0006 


BEGIN 
KILL_BUFFERS (2, 0); 
LEAVE INDEXF; 


oo 
3 
$ 


LUSTE 
BMAPS 


FUSS VSIVSISISIS 


MIF WN OO OONA UNSW 


HDRBASE = .CURRENT_VCB (VvCB$ 
+ .CURRENT_VCB [VCBS 


Loop for all blocks being written. 


w_C 
Bol 


bee I FROM 0 TO (.BLOCK_COUNT = 1) 


ao 


FID : BBLOCK (6); 
UNLOCK_XQP (); 
FID = .VBN + .I; 
IF FID LEQU .HORBASE 


POPIPIPOPOPOPOPSPOPoNoNoNoNonononononofnonofnornony 


sO 08 09 09 09 09 09 09 09 09 098 SI NISINI NIN NINN NO OOOO OAOOOW 


MEUM — SO ODNOVEWN “CO OODNOU SW —O0OMW 


MoPoroRooRoNononononons 
SSS oO oauwe arudeconee 
VIE AN HO OBNANEWN HOO ONAUEWN-2-00@ 


This is not within the header area. Assume it is the index file bitmap. 


BEGIN 
ALLOCATION LOCK () 
(LB_DATASEG (0)<16,16> = .(LB_DATASEQ (0})<16,16> + 1; 


ELSE 


MTOM PPO 


AAWwN 


This is within the header area. Calculate the file number and bump 


WIN O “10969 69 09 G9 C9 0D 0908 SINISE SSS S09 09 09 09 ISIN NINN NINN NNN NINO NOAA AOOAAAO NINO 


2 
2 
2 
; 
5 5 
Pe re : 
$39 § : it's sequence number. Note that extension headers are locked under 
37 ! the oc onery header's file number, and hence this does not directly 
338 2 | invalidate them. However, we will assume that whatever is out there 
239 : mucking with headers in the first place will know enough to rewrite 
240 e : the primary header when screwing with extension headers and get them 
<3 ; in that fashion. 
4 9 
44 9 BEGIN 
45 9 LOCAL 
48 38 LCKINDX; 
48 98 FID = fie = ,HDRBASE; 
49 99 FID FFD BMAX) = .F10<16,8>; 
50 00 FID CFIDSB-RVN) = . CURRENT _RVWN; 
51 4 LCKINDX = peri ive (FIDY; 
26 § Le senste eLCKIRDX] = .LB_HDRSEQ C.LCKINDX) + 1; 
54 304 END; ! of loop phroveh all blocks 
fr) is is e number 
55 05 END ! of th fi b 
56 Bg ELSE 
57 0 


oo 
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“Oct-19 
: This is for file number 2, which is the storage bitmap. Invalidate 
entries cached for it. 
BEGIN 
IF NOT .CLUSTER 

gg TERS (0,0) 


BEGIN 
ALLOCATION Lore Q); 


(LB_DATASEG 1)<0°16> = .(LB_DATASEQ [0})<0,16> + 1; 
END; 
END; ' of either file 1 or 2. 
END; ! of WRITE TURN 
UNLOCK_XQP (); 
KERNEL-CALL (REQUEUE_REQ, .PACKET, .LBN, .UNMAPPED); 
RETURN 1; 


! If the virtual bit is not set, this is an 1/0 error on a file sent here 


POPPIN PoNoTnon: oO 


09 09 09 08 INNIS NINNIO OO 
WN $9 OONA UN EWN OOD ie a 0 a ee ee ee oe oe eR 
o Qn 
> 
WA. A.A. A.A. AAA AAAI POP 


WN S ODNA NEW" 9 OONOMNE WN" O ODNO NEW" O0O@~ 


PAA XA MAAN BPP PEPE EE 


FAR GW OOo NAAR WO OOo NOU 
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! for bad block process ine. If the error is a parity, format, or datacheck 
' error, we set the bad block bit in the FCB of the file and enter the 

: block in question into the volume's bad block log. Note that we do not 

: do this on errors on the volume's reserved files, which are not subject 
! to dynamic bad block processing. 


-PACKETCIRP 


BEGIN 
USER_STATUS(O] = $L 
1) = .PACKETCIRPSL 


a ~ 108th}; ! get status to return to user 
USER_STATUS _10S8T2); 


Os 

IF 

ne ad -BBLOCK CCURRENT_UCBCUCBSL_DEVCHAR], DEVS$V_SWL) 
KPACKETLIRPSL 10811) <0, 16> EQL SS$_PARITY 


OR .(PACKETCIRP$L—10ST1})<0.16> EQL SS$~DATACHECK 
OR .(PACKETCIRPSL~10ST1})<0.16> EQL SSS$"FORMAT 


AND ( 
-FCBCFCBSW FID NUM] GTRU .CURRENT_VCBCVCBSB_RESFILES) 
OR (.CURRERT veatvcasy extF 1D) 
AND .FCBCFCBSB_FID-NMX) NEQ 0) 


BEGIN 
KERNEL_CALL (MARKBAD_FCB, .FCB); 

MODE = care READERR; ' assume read 
IF .PACKETCIRPSV_FCODE) EQL 10$_WRITEPBLK 

THEN MODE = ENTER WRI TERR: 

SCAN_BADLOG (FCBCFCB$W_FI16], .VBN, .LBN, .MODE, 0); 


END 
RETURN 0; 
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89 1 END; ! end of routine READ_WRITEVB 


T RWVB 
ENT \v04-001\ 


Py UEUE _ 
.EXTRN SCAR_BADLOG 
-PSECT S$CODE$,NOWRT,2 


O3F¢ 90000 ENTRY READ_WRITEVB, Save R2,R3,R4,R5,R6,R7,R8,R9 =; 1080 
5E 0c ¢ 9002 SUBL2 #12, SP ; 
5 0 AA 9E 0000 MOVAB =128(BASE), R8 + 1127 
56 00OAB CA 3 0009 MOVAB 168(BASE), R6 : 
54 90 AA D O00E MOVL <112(BASES, PACKET : 1150 
55 18 AG b0 9001 MOVL g4 (PACKET) WINDOW + 1151 
50 32 Aa «3C (00CI6 MOVZWL S5O(PACK RO : 1152 
50 O1FF 6 C0 % OO1A MOV 511(RO), RO : 
52 50 00000200 8F C? OOODIF DIVL3 #512, RO, BLOCK_COUNT : 
59 48 Ad DO 0087 MOVL 72(PACKET), VBN : 1153 
03 12 00028 BNEQ =:'1$ > 1155 
14 BF 00020 CHMU =—s-s#20 ; 
04 0002F RET ; 
53 18 as pO 0030 1$ MOVL 34 (WINDOW), FCB + 1157 
24 A F 000 PUSHAB 6(FCB) ; 1162 
00006 CF or F 90 7 CALLS #1, SERIAL_FILE : 
18 AA 0 D 03C MOVL RO, 24(BASE) 3 
4004 8F PUSHR  #*M<R2,SP> : 1168 
5 PUSHL WINDOW : 
9 PUSHL  VBN 3 
00006 CF 4 CALLS #4, MAP_VBN ; 
57 9 MOVL RO, LBN : 
FEFFFFFEFF 8F CMPL BN, #1 : 1169 
8? BNEQ 3 
0870 =&F CHAU #2160 ; 
03 2A Ab 04 BBS #4, 42(PACKET), 3$ : 1171 
OOF6 BRwW 0 3 
50 52 66 SUBL3. UNMAPPED BLOCK COUNT, RO > 1170 
51 FF A04 MOVAB -1(RO)CLANJ, LAST_LBN ; 
50 94 AA MOVL  =108(BASE) > 1175 
0080 C0 7 CMPL LEN, 176(R6) ; 
7 BGEQU 4 ; 
0080 6«c0 1 CMPL AST_LBN, 176(RO) : 1176 
5 BLSSU 3 
Oopc = BF CHAU #220 : 1177 
2a 15 AS 94 BBC #4, 21(WINDOW), 8S > 1190 
0 CLRL CLUSTER : 1196 
51 94 AA MOVL -10B(BASE), R1 > 119 
C Al BLBC  60(R1), 6$ F 


RWVB f-san-1985 18:31:43 VAX-11 Bliss Ze V4,0-74 


- 742 P 9 
v04-001 -Oct-1 DISKSVMSMASTE 'CF14X.BUGSRCIRWVB.B32:1> (2) 
000000006 95 TSTL CLUSGL_CLUB : 1199 
50 a 18 90096 Sovt a CLUSTER : 1201 
29 As ® A A$ Ist 1 (FCB) : 1383 
02 24 AS : A CMPW 6(F CB), #2 + 1204 
: : A BLEQU $ : 
9 0 € AB 7$ BLBC SLUSTER 9$ + 1207 
0 18 AA 00 OOOA MOVL (BASES. RO + 1215 
soso BROEE og, St fag : 
50 1 AA 00 00087 9S: MOVL 4(BASE), R : 1 
0088 CA4O DD obs PUSHL F8CBASe5CRO3 : _ 
1 0D 000C¢ PUSHL @ : 
00006 cf FB b00C¢ CALLS #2, KILL_BUFFERS : 
0 18 AA D ¢ OVL 4 (BASE) RO + 1223 
0080 AKO DD 000C PUSHL 8(BASESCROJ : 
0 DD 900 PUSHL # ; 
: 1 0000 RB 17$ ; 
50 D2 00004 10$:  MCOML CLUSTER, RO + 1240 
01 26 «OA 8] 07 CMPW 6(FCB), #1 > 1228 
5 ‘ DB BNEQ 16$ : 
05 5 ; 0000 BLBC ~=—-s«aRO,-«*11 ; 1240 
7€ 0¢ D OO0E MOVQ #2. =(SP) : 125 
11 O000E BRB 17$ ; 
50 98 AA DO QOE} 11$:  MOVL -104(BASE), RO : 1257 
51 3C AO 3C 000E9 MOVZWL G0(RO), R1 ; 
50 8 AO 9A O00ED MOVZBL 56(RO), RO : 1258 
38 6041 DE OOF MOVAL (RO)CRIJ, HDRBASE : 
5 1 CE 000F5 MNEGL #1, I + 1263 
5 11 0008 BRB 14$ : 
00006 CF 9 FB OOOFA 12$: CALLS #0, UNLOCK_xaP 3 1269 
04 AE 59 C1 OOFF ADDL3 1, VBN, FID : 1271 
58 04 AE 01 104 CMPL FID, HORBASE : 1273 
A 1A 00108 BGTRU 13$ : 
00006 ¢F 0 FB 104 CALLS #0, ALLOCATION_LOCK + 1280 
02 A6 B6 0010F INCW (R6) + 1281 
1B 11 Otte BRB 4$ + 1273 
04 AE 5 £2 114 13$:  SUBL2 HDRBASE, FID : 1298 
09 AE 06 AE 0118 MOVE FID+2, FID+S > 1299 
08 AE AO AA 90 0011 MOVB +=96(BASE), FID+4 : 1300 
04 AE 9F 001 PUSHAB FID : 1301 
00006 CF 01 FB 001 CALLS #1, SERIAL_FILE : 
0094 CA40 D6 0012A INCL 18 BASE) CCKINDX) : 1302 
C7 53 52 F2 OOlOF 14$: AOBLSS Re I, le : 126 
13 11 00133 15$: BRB 19$ : 1228 
09 3 BY 135 16$:  BLBC RO, 18$ : 1314 
C 001 CLRQ = = ( §P) : 1316 
00006 CF re A 178: CALLS ‘ KILL_BUFFERS : 
00606 CF FB 00141 18%: CALLS #0, ALLOCATION_LOCK : 1319 
B6 146 INCW = (RA) > 1320 
00006 CF FB 00148 19$: CALLS #0, UNLOCK_xOP 31 $ 
E DD 00140 PUSHL PPED : 41 
00006 0090 03 FB SOISs CRTs | #3 REGUEUE REQ 
£5 1 AB 133 MOVL sai. RD . > 1340 


VvO4=001 Hates WELD yescdbathled2a 
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4 00158 RET ; 
‘ 8 Ab 13° 208 Move a (RB) + 1341 
4 AA D 16 MOVL orf ASE), RO 3; 1345 
55 3 CA 01 € 164 BBS 1, 59(RO). 24$ : 
O1F4 oS 38 As 8 9 cn al #500 + 1347 
00SC BF 38 As 8} 174 cP 6(PACKET), #92 : 1348 
0oBC sBF 38 as 8 129 chew 6(PACKET), #188 t 1349 
50 98 AA 06 0181 21$ MOVL  =104(BASE), RO + 1352 
1 4F A0 A o1 3 MOVZBL 79¢ 9) : 
24 «AB BI 1 CMPW SORT, ~36(FCB) : 
A 1F 001 BLSSU ees : 
2A 0B AO 3 3! 018F C #5, 11(RO), 24$ + 1353 
29 «OA 3 01 TSTB GCF : 1354 
¢3 13 00197 BEQL  24$ ; 
DD 00199 228 PUSHL FCB : 1358 
0000V CF 4 FB 001 CALLS “i, MARKBAD_F CB 3 
50 1 DO OOTAL MOVL ai, + 1359 
0B 20 AG 06 60 : O1A CMPZV 9 #6, 32(PACKET), #11 : 1360 
0 0109 BNEQ 23$ F 
50 02 DO 001AB MOVL #2, MODE : 1361 
D4 OOIAE 238 CLRL 0s = (§P : 1362 
50 DD 00180 PUSHL MODE ; 
57 DD 001B2 PUSHL LBN ; 
59 DD 001B4 PUSHL y : 
24 A3 9F 00166 PUSHAB 36(FCB) : 
00006 CF 05 FB 00189 CALLS #5, SCAN_BADLOG 
50 D4 001BE 248: CLRL RO 1364 
04 001C R : 1367 


; Routine Size: 449 bytes, Routine Base: S$CODE$ + 0000 


6 | | 
-Jan-1 :31: AX-11 Bliss- 40-74 P 1 SM 
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GLOBAL ROUTINE MARKBAD_FCB (FCB) = 
lee 
1 


; FUNCTIONAL DESCRIPTION: 

This routine set the bad block bit in the indicated FCB. 
i CALLING SEQUENCE: — 

MARKBAD_FCB <ARG1) 


i INPUT PARAMETERS: 
ARG1: address of FCB 


FAW AWW NIN ANI GIPIRITURIPONNPUNINIDY SS SO os 
SOONOMNEWN $0 OD VOU FW" OOONOUS WN 


3 1 1 

3 1 1 

§ 1 1 

; 1 1 

: 1 1 

$ 1 1 

: 1 7: 

A 1 1! 

3 1 1! 

: 1 1! 

3 1 1! 

: 1 1! 

3 1 » 3 

: 1 1! 

; 1382 1! 

; 1 1 ! IMPLICIT INPUTS: 

3 1384 1! NONE 

: 1385 1! 

3 1 6 1 ! OUTPUT PARAMETERS: 
: 1387 1! NONE 

: 1335 1! 

3 1389 1 ! IMPLICIT OUTPUTS: 

$ ; 1390 1! NONE 

: 132) 1! 

3; § 1 4 1 ! ROUTINE VALUE: 

; Ss 1393 1! 1 

3; 5 1394 1! 

3; 3 1395 1! SIDE EFFECTS: ‘ 
. s 1396 1! bad bit set in FCB 
3; 3 fad as 

3 se) 1398 1 !-- 

3 § 1399 1 

; 34 1400 BEGIN 

3 344 1401 

3 $2 1O06 MAP 

: 346 140 FCB : REF BBLOCK; ! FCB argument 
: ei 1404 

; 348 1405 

; 349 1406 FCBCFCB$V_BADBLK) = 1; 
; 350 1407 

; $2! 1408 RETURN 1; 

3 25 1409 

3 3 1410 1 END; ! end of routine MARKBAD_FCB 


0000 00000 ENTRY MARKBAD_FCB, Save nothing ; 1368 

50 06 ac 00 99 2 MOVL FCB, RO > 1406 

= § Bt BO O000R mn Ott 1408 
04 0000 RET . > 1410 


; Routine Size: 14 bytes, Routine Base: S$CODE$ + 01C1 


6 

“Jan-1985 18:31: VAX=11 Bliss-32_V4,0-742 Page 12 SM 

B-Jan-1985 13:24:48 DISKSVMSMASTER:CF11X.BUGSRCIRWVB.B32:1> Fi v0: 
: 1411 3 
; 335 1316 ; 
; 6 1413 0 ELUDOM : 
: PSECT SUMMARY : 
; Name Bytes Attributes ; 
; SCODES 463 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
$ Library Statistics ; 
; cccessas Synbol§ cooeecce Page . Processing ; 
: File Total Loaded Percent Mapped Time : 
: -$255$DUA18:CSYSLIBILIB.L32;1 18619 45 0 1000 00:02.0 3 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OF TIMIZE)/LIS=LIS$:RWVB/OBJ=OBJ$:RWVB MSRC$:RWVB/UPDATE=(BUG$:RWVB) 
; Size: 463 code + 0 data bytes 

Ti 724.7 


3; Run me: : 

; Elapsed Time: Fe 
3 Lines/CPU Min: 439 

3; Lexemes/CPU-Min: 38738 

3 pone | Used: 290 pages 
3; Compilation Complete 


0444 VAX VMS VE SRC LST MORE UPD 


